inherited fAgendamento: TfAgendamento
  Left = 14
  Top = 25
  Caption = ''
  ClientHeight = 550
  ClientWidth = 768
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel [0]
    Left = 200
    Top = 567
    Width = 593
    Height = 43
    Align = alNone
    inherited btnSair: TBitBtn
      Left = 463
    end
    inherited btnCancelar: TBitBtn
      Left = 452
      Top = -500
      Visible = False
    end
    inherited btnexcluir: TBitBtn
      Left = 347
      Top = -500
      Visible = False
    end
    inherited btngravar: TBitBtn
      Left = 242
      Top = -500
      Visible = False
    end
    inherited btnIncluir: TBitBtn
      Left = 137
      Top = -500
      Visible = False
    end
    inherited btnProcurar: TBitBtn
      Left = 32
      Top = -500
      Visible = False
    end
    object BitBtn1: TBitBtn
      Left = 367
      Top = 4
      Width = 85
      Height = 33
      Caption = 'Imprimir agenda'
      TabOrder = 6
      OnClick = BitBtn1Click
    end
  end
  inherited StsBr: TStatusBar [1]
    Top = 531
    Width = 768
  end
  inherited Panel3: TPanel
    Width = 767
    Height = 54
    Align = alNone
    inherited DBTextDestaque1: TDBText
      Top = -500
      DataField = 'NOME_MEDICO'
    end
    inherited DBTextDestaque: TDBText
      Top = -500
      DataField = 'NOME_MEDICO'
    end
    object dxButton1: TdxButton
      Left = 259
      Top = 2
      Width = 68
      Height = 50
      About = 'Design eXperience. '#169' 2002 M. Hoffmann'
      Version = '1.0.2e'
      OnClick = btnIncluirClick
      Caption = 'Incluir'
      Glyph.Data = {
        86050000424D8605000000000000360000002800000016000000140000000100
        18000000000050050000120B0000120B00000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F
        7FCF6760CF67607F7F7F60302F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7FCF6760CF
        6760CF6760CF6760FF9790FF97907F7F7F60302F7F7F7F7F7F7FBFBFBFBFBFBF
        0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7FCF6760CF6760
        CF6760CF6760CF6760CF6760FFC8CFCF67601F201F7F7F7F60302F60302FCF67
        607F7F7F0000BFBFBFBFBFBFBFBFBFBFBFBFFF9790CF6760CF6760CF6760FF97
        90CF6760FF9790CF6760FF9790CF6760FFFFFFCF67601F201F1F201FBFBFBFBF
        BFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFFF9790CF6760FF9790CF6760FF
        9790CF6760FF9790CF6760FF9790CF6760FF9790FFFFFF60302F1F201F1F201F
        60302FBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFFF9790FF9790FF9790
        FF9790FF9790FF9790FF9790FF9790FF9790FF9790FF9790FFFFFF1F201F1F20
        1F60302F1F201F60302FBFBFBFBFBFBF0000BFBFBFBFBFBFFF9790FF9790FF97
        90FF9790FF9790FF9790FF9790FF9790FF9790FF9790FF9790FFC8CFCF67601F
        201F60302F60302F60302F60302F60302FBFBFBF0000BFBFBFBFBFBFFF9790FF
        9790FF9790FF9790FF9790FF9790FF9790FF9790FF9790FF9790FF9790FFFFFF
        CF67606097CF60302F60302F60302F60302F60302F60302F0000BFBFBFFF9790
        FF9790FF9790FF9790FF9790FF9790FF9790FF9790FF9790FF9790FF9790FF97
        90FFFFFFCF6760007F7F6097CF60302F60302F60302F60302FBFBFBF0000BFBF
        BFFF9790FF9790FF9790FF9790FF9790FF9790FF9790FF9790FF9790FF9790FF
        9790FF9790FFC8CFCF67606097CF007F7F007F7F60302FFF9790BFBFBFBFBFBF
        0000FF9790FF9790FF9790FF9790FF9790FF9790FF9790FFC8CFFFC8CFFFC8CF
        FF9790FF9790FF9790FFC8CFCF6760FFC8CFCF6760BFBFBF007F7FBFBFBFBFBF
        BFBFBFBF0000FF9790FF9790FF9790FF9790BFBFBFCFFFFFCFFFFFCFFFFF007F
        7F007F7FFF9790FF9790FF9790FFC8CFFFC8CFBFBFBFFFC8CFBFBFBFCF6760BF
        BFBFBFBFBFBFBFBF0000FF9790FFC8CFBFBFBFBFBFBFBFBFBFBFBFBFCFFFFFCF
        FFFFCFFFFFCFFFFFCFFFFFCFFFFFCFFFFFCFFFFFCFFFFFCFFFFFCFFFFFCFFFFF
        CF6760BFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        CFFFFFCFFFFFCF6760CFFFFFCF6760007F7FCF6760007F7FCFFFFFCF6760CFFF
        FFCFFFFFCF6760BFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFCFFFFFCFFFFFCFFFFFCFFFFFCFFFFFCFFFFFCFFFFFCFFFFFCFFFFFCF
        FFFFCFFFFFCFFFFFCF6760BFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFCFFFFFCFFFFF007F7FCF6760007F7FCF6760CFFFFFFF9790
        007F7F007F7F007F7F007F7F6097CFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFCFFFFFCFFFFFCFFFFFCFFFFFCFFFFFCFFFFFCFFF
        FFBFBFBFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCFFFFFCFFFFFCF6760007F7FCF6760CF
        FFFFCFFFFFBFBFBFFFFFFFFFFFFFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCFFFFFCFFFFFCFFFFFCFFFFF
        CFFFFFCFFFFFCFFFFFFF979000FFFFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBF0000}
      Layout = blGlyphTop
      TabOrder = 0
    end
    object dxButton2: TdxButton
      Left = 331
      Top = 2
      Width = 68
      Height = 50
      About = 'Design eXperience. '#169' 2002 M. Hoffmann'
      Version = '1.0.2e'
      OnClick = btngravarClick
      Caption = 'Gravar'
      Glyph.Data = {
        0E060000424D0E06000000000000360000002800000016000000160000000100
        180000000000D8050000120B0000120B00000000000000000000FFFFFF8BA473
        6084403364003364003364003364003364003364003364003364003364003364
        00336400336400336400336400336400336400336400608440FFFFFF0000D2D0
        D292BB8533990033990033990033990033990033990033990033990033990033
        9900339900339900339900339900339900339900339900339900336400608440
        00009BCD9C3399003399003399003399003399003399003399003399006DB04F
        6DB04F6DB04F6DB04F5199223399003399003399003399003399003399003399
        0033640000009BCD9C33990033990033990033990033990033990033990085C0
        65FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF56A62933990033990033990033990033
        990033990033640000009BCD9C33990033990033990033990033990033990066
        A83CF1F7E8FFFFFFF3EEF5E2F3D5FCFEF2FFFFFFB4C4A7339900339900339900
        33990033990033990033640000009BCD9C339900339900339900339900339900
        369A02B5D298FFFFFFB4DC8F66A83C48A41B7DBF4EF1F7E8FFFFFF66A83C3399
        0033990033990033990033990033640000009BCD9C3399003399003399003399
        0033990064AA44F3EEF5FFFFFF2B95003399003097043399002B9500FFFFFFC8
        E3B733990033990033990033990033990033640000009BCD9C33990033990033
        9900339900369A026DB04FFFFFFFFFFFFF2F9800309704429F173399002F9800
        FFFFFFC8E3B733990033990033990033990033990033640000009BCD9C339900
        339900339900339900339900339900D1E3C7FFFFFF429F17B4DC8FE2F3D585C0
        65339100FFFFFF9BCD9C33990033990033990033990033990033640000009BCD
        9C33990033990033990033990033990033990033990085C065A0D37EFFFFFFFF
        FFFFFCFEF27DBF4E85C065339900339900339900339900339900339900336400
        00009BCD9C339900339900339900339900339900339900339900339900F2F9F5
        FFFFFFFFFFFFFFFFFFE7F2E93399003399003399003399003399003399003399
        0033640000009BCD9C33990033990033990033990033990033990033990064AA
        44FFFFFFEEEBEFD1E3C7F6F1FAFFFFFF369A0233990033990033990033990033
        990033990033640000009BCD9C33990033990033990033990033990033990033
        9900D1E3C7FFFFFFB5D298339900D1E3C7FFFFFFA3D1A2369A02369A02339900
        33990033990033990033640000009BCD9C339900339900339900339900339900
        339900A2C48CFFFFFFEEEBEF56A629369A026DB04FFEF8FFFFFFFF6DB04F3399
        0033990033990033990033990033640000009BCD9C3399003399003399003399
        0033990064AA44F3EEF5FFFFFF85C065339900339900339900B5D298FFFFFFE3
        E3E133990033990033990033990033990033640000009BCD9C33990033990033
        9900369A02A2C48CFFFFFFFFFFFFFFFFFF309704339900339900339900339900
        FFFFFFFFFFFFFEF8FF6DB04F369A0233990033990033640000009BCD9C339900
        3399003399006DB04FF6F8F9FFFFFFFFFFFFFFFFFF3399003399003399003399
        00339900FFFFFFFFFFFFFFFFFFE1EDDE56A62933990033990033640000009BCD
        9C339900339900369A02B5D298FFFFFFFFFFFFFFFFFFC6D3BB33990033990033
        9900339900339900E3E3E1FFFFFFFFFFFFFCFEF292BB85339900339900336400
        00009BCD9C33990033990033990033990085C06590C68066A83C359D02339900
        3399003399003399003399003399007DBF4E90C6806DB04F369A023399003399
        003364000000BBCCBA3399003399003399003399003399003399003399003399
        0033990033990033990033990033990033990033990033990033990033990033
        99003097046084400000D2D0D2BBCCBA33990033990033990033990033990033
        9900339900339900339900339900339900339900339900339900339900339900
        3399003399009BCD9CBBCCBA0000FFFFFFD2D0D2BBCCBA9BCD9C9BCD9C9BCD9C
        9BCD9C9BCD9C9BCD9C9BCD9C9BCD9C9BCD9C9BCD9C9BCD9C9BCD9C9BCD9C9BCD
        9C9BCD9C9BCD9C9BCD9CC6D3BBFFFFFF0000}
      Layout = blGlyphTop
      TabOrder = 1
    end
    object dxButton3: TdxButton
      Left = 403
      Top = 2
      Width = 68
      Height = 50
      About = 'Design eXperience. '#169' 2002 M. Hoffmann'
      Version = '1.0.2e'
      OnClick = MonthCalendar1Click
      Caption = 'Procurar'
      Glyph.Data = {
        B6040000424DB604000000000000B60000002800000020000000200000000100
        08000000000000040000120B0000120B00002000000020000000FFFFFF00CCCC
        CC00BBBBBB00AAAAAA00CC999900888888007777770099666600666666005555
        5500444444006633330033333300222222001111110000000000C0C0C0000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000101010101010
        1010101010101010101010101010101010101010101010101010101010101010
        10100F0F0F0F0F0F0F0F0F060606101010101010101010101010101010101010
        0F0F0101010100040004040F0F0F060606101010101010101010101010100F0F
        01010101010100040004040404040F0F060610101010101010101010100F0404
        010101010101000400040404040404040F06061010101010101010100F040404
        01010101010100040004040404040404040C0606101010101010100F04040404
        01010F0F0F0F0F0F0F0F0F0404040404040906060610101010100F0404040404
        0F0F0000000000000000000F0F0F040404040F060610101010100F04040B0F05
        00020F060606060606060500000006050B040F060606101010100F040F000000
        0F0A0404040404040404040F0F0F0000000B0F060606061010100F0F0000000F
        04040404040404040404040404040F0000050F060606061010100F0000000F07
        0404040404040404000000040404040F00000F060606061010100F00000F0404
        070404040404040404040400040407040F000F060606101010100F00000F0404
        040701040404040404040400070704040F000F060606101010100F00000F0404
        040400010707070707070707040404040F000F060610101010100F0000000F04
        0404010404040404040404040403040F00000F06101010101010100F0000000F
        04040404040404040404040404040F00000F101010101010101010100F000000
        0F0F040404040404040404040F0F0000000F10101010101010101010100F0000
        00000F0F0F0F0F0F0F0F0F0F000000000F061010101010101010101010100F0F
        00000000000000000000000000000F0F050C0610101010101010101010101010
        0F0F000000000000000000000F0F0202020F0F06101010101010101010101010
        10100F0F0F0F0F0F0F0F0F0F0200000202080F0F061010101010101010101010
        1010101010101010101010100F020000020F0F0F0F0610101010101010101010
        10101010101010101010101010050F0E0C0E0F0F0F0F06021010101010101010
        1010101010101010101010101010100F0D0A0F0F0F0F0F061010101010101010
        101010101010101010101010101010100F090D0F0F0F0F0F1010101010101010
        10101010101010101010101010101010100F060D0F0F0F0F1010101010101010
        1010101010101010101010101010101010050D060D0F0F0F1010101010101010
        1010101010101010101010101010101010100F0D060D0F0F1010101010101010
        101010101010101010101010101010101010100F0F0F0F101010101010101010
        1010101010101010101010101010101010101010101010101010101010101010
        1010101010101010101010101010101010101010101010101010}
      Layout = blGlyphTop
      TabOrder = 2
    end
    object dxButton4: TdxButton
      Left = 475
      Top = 2
      Width = 68
      Height = 50
      About = 'Design eXperience. '#169' 2002 M. Hoffmann'
      Version = '1.0.2e'
      OnClick = btnCancelarClick
      Caption = 'Cancelar'
      Glyph.Data = {
        D6090000424DD60900000000000036000000280000001D0000001C0000000100
        180000000000A0090000C30E0000C30E00000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F7F7F7F7F7F7F7F7F7F7F
        7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBF7F7F7F7F7F7F0000000000000000000000000000000000007F7F7F
        7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F000000
        00000000007F00007F00007F00007F00007F00007F0000000000007F7F7F7F7F
        7F7F7F7F7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000007F00007F00007F00007F0000
        7F00007F00007F00007F00007F00007F00007F0000000000007F7F7F7F7F7F7F
        7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBF00007F00007F00007F00007F00007F0000FF0000FF0000FF0000FF00
        00FF0000FF00007F00007F00007F0000000000007F7F7F7F7F7F7F7F7F7F7F7F
        BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00007F00007F00
        00FF00007F00007F0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF
        0000FF00007F00007F0000000000007F7F7F7F7F7F7F7F7F7F7F7FBFBFBFBFBF
        BF00BFBFBFBFBFBFBFBFBFBFBFBF00007F0000FF00007F00007F00007FBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000
        7F00007F0000000000007F7F7F7F7F7F7F7F7FBFBFBFBFBFBF00BFBFBFBFBFBF
        BFBFBF0000FF0000FF00007F00007F00007FBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00007F00007F0000FF00007F00007F00
        00000000007F7F7F7F7F7F7F7F7FBFBFBF00BFBFBFBFBFBFBFBFBF0000FF0000
        7F00007F00007F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBF00007F00007F0000FF00007F0000FF00007F00007F0000007F7F7F
        7F7F7F7F7F7FBFBFBF00BFBFBFBFBFBF0000FF00007F00007F00007F7F7F7FBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00007F00007F
        0000FF00007F00007FBFBFBF0000FF00007F0000000000007F7F7F7F7F7F7F7F
        7F00BFBFBFBFBFBF0000FF00007F00007F0000007F7F7FBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00007F00007F0000FF00007F00007FBFBF
        BFBFBFBF0000FF00007F00007F0000007F7F7F7F7F7F7F7F7F00BFBFBF0000FF
        00007F00007F0000007F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBF00007F00007F0000FF00007F00007FBFBFBFBFBFBFBFBFBFBFBFBF00
        00FF00007F00007F0000007F7F7F7F7F7F00BFBFBF0000FF00007F00007F0000
        007F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00007F00007F00
        00FF00007F00007FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF00007F00007F
        0000007F7F7F7F7F7F00BFBFBF0000FF00007F00007F0000007F7F7F7F7F7FBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBF00007F00007F0000FF00007F00007FBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF00007F00007F0000007F7F7F7F7F
        7F00BFBFBF0000FF00007F00007F0000007F7F7F7F7F7FBFBFBFBFBFBFBFBFBF
        BFBFBF00007F00007F0000FF00007F00007FBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBF0000FF00007F00007F0000007F7F7F7F7F7F00BFBFBF0000FF
        00007F00007F0000007F7F7F7F7F7F7F7F7FBFBFBFBFBFBF00007F00007F0000
        FF00007F00007FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
        00FF00007F00007F0000007F7F7FBFBFBF00BFBFBF0000FF00007F00007F0000
        007F7F7F7F7F7F7F7F7FBFBFBF00007F00007F0000FF00007F00007FBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF00007F00007F
        0000007F7F7FBFBFBF00BFBFBFBFBFBF0000FF00007F00007F0000007F7F7F7F
        7F7F00007F00007F0000FF00007F00007FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBF0000FF00007F00007F0000007F7F7FBFBFBFBFBF
        BF00BFBFBFBFBFBF0000FF0000FF00007F0000007F7F7F00007F00007F0000FF
        00007F00007FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBF00007F00007F00007F0000007F7F7FBFBFBFBFBFBF00BFBFBFBFBFBF
        BFBFBF0000FF00007F00007F00007F00007F0000FF00007F00007FBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00007F00007F00
        007F00007F7F7F7FBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBF0000FF0000
        FF00007F00007F0000FF00007F00007F7F7F7F7F7F7F7F7F7FBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBF7F7F7F00007F00007F0000FF00007F000000BFBFBF
        BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF00007F00
        007F00007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
        7F7F7F00007F00007F00007F00007F00007FBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF00007F00007F000000
        0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F00000000007F00007F0000
        7F0000FF00007FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBF0000FF0000FF00007F00007F00007F0000000000
        0000000000000000000000000000007F00007F00007F0000FF00007FBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBF0000FF0000FF0000FF00007F00007F00007F00007F00007F00
        007F00007F00007F00007F0000FF0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBF0000FF0000FF00007F00007F00007F00007F00007F00007F0000FF
        0000FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBF0000FF0000FF0000FF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00}
      Layout = blGlyphTop
      TabOrder = 3
    end
    object dxButton5: TdxButton
      Left = 547
      Top = 2
      Width = 68
      Height = 50
      About = 'Design eXperience. '#169' 2002 M. Hoffmann'
      Version = '1.0.2e'
      OnClick = btnexcluirClick
      Caption = 'Excluir'
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C0060000C40E0000C40E00000000000000000000F3FFEEF9FDF9
        FCF9FEFFF9FFFFFAFFFFFEFFFEFEFFFAFAFFF9FAFFFBFEF7FFFEFBFFFCFFFFFE
        FDFFFEF8FAFDF7FCFCFFFBFCFFFDFCFDFFFDFEFFFDFFFFFCFFFFFAFFFBFEFFF3
        FEFAFCFFF6FAFEFAFEFEFFFFFBFFFFFFFBFDFFF2F9FDFCFCFEFFFCFEFFFEFEFE
        FFFCFBFFFCFDFFFEFFFDFBFCFFFDFEFDFEFEFCFCFCFBFBFAFFFCFCFFFEFDFFFF
        FFFFFEFFFAFDFCFAFEF9FCF9F6FFFFFFFDFEFFFBFCFFC4C7D46B7178858591D5
        D8D9FFFFFEFAF9FBFFFFFFFEFDFDFDFAFFFCF8FFFFFEFFFEFDFAFEFFFDF6F9FA
        FFFFFFF8F9FFBFBDD1A9AAAFFEFEFBFFFFF9FFFAFFFFF9FFFDF7FFC8B7E81800
        922C07AD3421769994B0FDFEFAFFFFFFFBFCFEFAFAFFFDFCFFFEFEFAFDFEF2FE
        FCFFFDFDFFFFFFFFC2C2EC5B47B0210486908BA7FCFCF8FFFFF9FFFDFDFFFCFB
        FFFFFFBFB4EC2908B22F00D43212A55A4E8ECFD5D2FFFFFFF9F9F9FCFCFEFEFB
        FFFAFBF9FFFFF6FEFDFFFCF9FFB5ADE93D27A1260D93503AACF3F1FFFFFFFEFF
        FEF8FFFEFAFFFFF5FCFFFBEAECFF6952CF2400C33204C8321F8D787B8FF9FEF4
        FFFFFFFEFDFFFEFAFFFFFFFDF9FBF9FFFFFFA296E03A1FA01E00A57560D4E3E1
        FEFFFFFFFDFCFEFFFFF9FEFBFFFEFDFDFDFFFDF6FDFFFBFBFF7565CB2400BE30
        0ABF2712869499A8F4F6F4FFFEFFFFFEFFFFFFFCFFFFFF8168DB2400A52A08AD
        A39ADEFDFFFFFBFFFEFBFEFEFDFEFEFAFBFBFCFAFFFEFEFEFFFFFFFBFBFEFBFC
        FFF7F3FF4D34C32802B4300EB93D3674ADAEBDFDFDFAFFFFFFFFF7FF9987DC25
        01A53214AC9585E1FFFFFFF9FFF9FCFFFAFDFDFDF9FBFBFAFDFFFCFEFFFCFEFC
        FCFBFAFFFCFFFBFBFFFEFFFFDAD4FF4F34C62600B73821994B4577BDC3C4FFFF
        FF9B86DF370CAF2A06AD9687E4F4F9FFFDFFF6FDFEF8FFFEFFFCFAFAFCFFFFF5
        FDFFFCFDFFFEFFFFFEFEF9FEFDFBFFFFFBFDFFFDFEFFFFF0E4FF6349C72500B2
        30169D3C33877257D62700A23107AEB1A4E2FFFFFFFBFEFFFFFBFFFFFEFFFFFD
        FDFFFFF6FAFEF7FAFEFCFFFFFCFEFCFCFFFEFFFDFCFAFFFEFBFEFEFCFEFEFFFF
        FEFFEDE1FF664CCD2C11AC260DB22604B7341BA69487DCFFFFFFFFFEFFFFFDFB
        FDF8FEFFFBFFFEFBFFFBFDF5FBFEF6FEFEFCFFFFF7FFFCFCFDF8FFFFFFFFFFFE
        FEFFFCFFFFFDFEFFFFFDFFFFFFE7DFFF4B30D52200DB2901D433259699A2B2FF
        FFFFFFFFFFFFFEFAFFFFFDFCF6FDFEF9FFFCFDFDFDFEFCFDFCFEFDFEF3FFFCFD
        FFF9FFFFFFF7FFFFFAFEFBFFFEFEFDFDFFFDFEFEFF7E66DF2201B52902D32C00
        DF2F11AE352E74909597EDECEEFFFEFFFEFAF3FEFDF9FFFAFFFDFCFFF9FBFFFA
        FCFFFAFDF8FEFEFEFFFAFFFFFBFCFFFBFBFFFCFEFDFFFDF8F5FF9889E02300A8
        2F12A67D6ED7967EEC3314AB3A1AA3463880807C9EDBDAE6FFFFFFFDFCFBFCFE
        FCFDFDF9FBFCFAFCFDFEFBFEFFFBFCFEFFFDFFFFF9FFFFFDFEFEFFFFFFFFFF93
        86DD2D0CAA2D04B17664C8F1F5FFFFFFFFC1ADFA3710AD310F9E423187616284
        CDD2E0FFFFFFFDFFFCFEFFEFFFFFF4FFFFFBF6FCFCFBFCFFFFF9FFFFFDFEFEFE
        FDFFFFFF7C67DF2000AC2603B57566C2FBF1FFFFFCFFFBFDFFFEFFFFFDFAFF52
        34B82E08B22F14A1464A7998A2B1ECF4F7FAFFF3FFFFF6FFFEFAF9FDFEF7FBFA
        FEFEFAFDFFFBF1EDFF9483E02400AF2507B05240BEEFEDFFFFFBFFFEF7FCFEFD
        FCFAFEFAFDFFFFEBE0FF8169DB2A0DA235209841397FB0B3C7FFFFFFFEFBFDFF
        FCFFFBFDFEFAFEF5FDFFF9F1F6FC7D6DC82C0AAF2D04BF432EB3C4C1F3FFFFFF
        FEFFFCFEFDFDFEFDFEFBFCFDFAFFFFF8FEFFF3EEFFB19CF71B00974E389ED2D0
        ECFFFCFFFFFAFFFFF7FFFFFEF9FCFFFBFFFFFF846BE32300BA2D00D13D24AABC
        B3EFFFFFFFFDFFFAFFFFF6FFFFF8FFFFFFFFFFFBFEFFF5FCFFFBFEFEFFFFFFFF
        F5EBFFE6E2F8FEFFFFFDFFFFFDFDFFFEFEFEFFFEFDFCFBFCFFFFFF1B00A32E03
        CB2000ADA69BE3FEF9FFFDF9FFFFFFFDFEFEFBFCFEFDFEFBFFFEFEFDFFFFFAFF
        FEFDFFFFFEFFFFFCFFFCFFFEFCFDFFFFFAFCFEFCFCFFFFFAFDFDFFF9FBFDFCFF
        FFFFFF3D21B91F029E917FDEFFFFFFFFFCFFFFFBFFFAF5FAFDFDFFFAFBFFFCF9
        FFFDFDFFFFFFFFFFFAFFFFFDFFFFFFFAFFFCFFFDFAFAFEFCFAFEFFFBF8FCFCF9
        FEFEFEFEFCFDF9FFFAFAFFFFFFFFFFFFFFFFFFFFFDFDFEFBFBFAFFFDFBFFFEFE
        FCFDFEFAFFFFFEFFFAFFFFFAFFFFFDFFFDFFFFFBFFFFFAFFFEFFFCFEFEFCFFFD
        FFFCFEFBFBFEFCFBFEFFFCFEF6FAFCFBFBFEFEF9FCFDFAFFFCFDFFFEFFFEFDFE
        FDFAFFFFFBFAFBF9F9FCFBFAFCFEFFFEFCFFFFFDFFFFFCFDFFF7FDFEFDFDFBFF
        FAFEFDFAFCFCFEFCFFF9FCFBFEFFFEFDFEFCF8FFF3FAFFF5FBFDF8FEFBFFFFFB
        FFFFFCFFFFFFFEFEFFFAFEFFFAFBFDFAFBFCFEFDFAFFFFFCFFFFFDFFFEFFFDFC
        FFEDFAFFF6FAFFFEF6FCFFF6FAFFF9FAFFFEFEFFFFFEFBFEFEFA}
      Layout = blGlyphTop
      TabOrder = 4
    end
    object dxButton6: TdxButton
      Left = 619
      Top = 2
      Width = 68
      Height = 50
      About = 'Design eXperience. '#169' 2002 M. Hoffmann'
      Version = '1.0.2e'
      OnClick = dxButton6Click
      Caption = 'Imprimir'
      Glyph.Data = {
        BE080000424DBE0800000000000036000000280000001C0000001A0000000100
        18000000000088080000C40E0000C40E00000000000000000000EFFFFFEFFFFF
        EFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFF
        FFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEF
        FFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFF
        EFFFFFEEFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFF0FFFFF0FFFFF0FF
        FFF0FFFFF0FFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEF
        FFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEEFFFFF2FFFFE9F8F7EAF7F8
        EAF7F8EAF7F8EAF7F8E9F7F7E7F7F5E7F7F6E7F7F6E7F6F6E7F6F5E8F6F6F0FF
        FEEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEF
        FFFFEFFFFFEFFFFFF3FFFFEDEDECCFD1CDD1CACFD1CBCFD1CBCFD1CBD0CDCACC
        C6CAC5C7CAC5C7CAC5C7C7C5C5BFC4CBC7C9E9ECE7EEFDFAEFFFFFEFFFFFEFFF
        FFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFF2FFFFD1D6D7A2
        A9A1FFFFFFFCFCFCFCFCFCFCFDFCFBFCFBFBFBFBFCFBFCFCFBFCFCFBFCFBFBFB
        FCFAFCFFFFFFD5D3D4C0C5C7F3FFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFF
        FFEFFFFFEEFFFFF1FFFFF8FFFFF9FFFFF9FFFF8D908CFFFFFFDEDADEDBE0DBDB
        DBDBE0DDE0E5E1E5DFDADFE0DFE0E6E7E6D6D6D6FAF8FAFFFFFFC6C1C4E1EAE4
        FBFFFFF8FFFFF3FFFFEFFFFFEFFFFFEFFFFFEFFFFFEEFFFFF3FFFFE1E1E59DA1
        A29FABA4A6AFA8949393FFFFFFF0F5F0EBF3EBEAEEEAFBF7FBFFFFFFFEFAFEFE
        FFFEFFFDFFFFF9FFFFFFFFFFFFFFC7C2C6A0A09FA2AAA79DA2A1CFCDD2F2FFFF
        EFFFFFEFFFFFEFFFFFEFFFFFF3FFFFA6A1A46A6B69737072666466898B89FFFF
        FFEBE9EBE6E7E6ECEFECEDEBEDEBEAEBE1E8E1E3E8E3F1EAF1E3E3E3F9F8F9FF
        FFFFC4C0C44F544F5B5B5A564E566B6D69EEFFFEF0FFFFEFFFFFEFFFFFEFFFFF
        F1FFFF8C848A655C65676267646065747874FFFFFFF4EFF4F0ECF0F3EEF3EEED
        EEEEF0EEEFEEEFEDEDEDEDE8EDE3E7E3F0EDF0FFFFFFAAAAAA5755575C5C5C5A
        585A686667EDFDFDF0FFFFEFFFFFEFFFFFF0FFFFF0FFFF757473555255605F60
        6667666E676EACA6ABA7ABA7A0A4A0A0A6A0A1A5A1A1A6A1A0A6A0AEA8AEADAC
        ADACACACB0AAB0ADB0AD8085807778777C7D7C7A7C7A6F726DECFCFBF0FFFFEF
        FFFFEFFFFFF0FFFFF0FFFF5B58593635364645464F4B4F2F2B2E303338363238
        322D31332D32332D32332D32332D32322D312C292B2F2B2D3E393D363136272A
        27605B606966686B676B625B60EBFBFBF0FFFFEFFFFFEFFFFFF0FFFFF0FFFF5D
        5A5B3C3D3C5A575B625A6011161C050E17060D15070D14070D14070D14070D14
        070D14070D14070E14070D14050C1306090B0002006160616D706E6E726E6862
        66ECFBFBF0FFFFEFFFFFEFFFFFF0FFFFF0FFFF6460624441445E585D5F5C5F57
        51564940474B44494B44494B44494B44494A44494944484944484D454B4A4449
        51474F464145545554767176706F716D6E6E666364ECFBFBF0FFFFEFFFFFEFFF
        FFF0FFFFF1FFFF5554532F292F4347434F4A4F4E4F4E414042444844434A4342
        49424149414548454F494F4D484D514E51505050565356534D53615861625E62
        6360635E5A5E5F5D5DECFBFBF0FFFFEFFFFFEFFFFFF0FFFFF1FFFF70676E4643
        46615E616E6F6E635E63525252565556555555605B60665E6666606565656766
        6566666466636863636A63636463616761706D705F5A5F625E62747272EEFDFD
        F0FFFFEFFFFFEFFFFFF0FFFFEFFFFF7F827E6E696E8B8E8BB4B3B44445442922
        29383538423E424842484743474543454542454642464743473F3B3F3535352E
        2E2E343234D6D5D6BEBCBEB1B6B19F979EEDFBFCF0FFFFEFFFFFEFFFFFEFFFFF
        F0FFFFB8B7B6BBBABBDFE6DFFFFFFF9393936A696A8D898D959495A29FA2A1A7
        A1B0AAB0AFA9AFADAAADA1A5A1A29CA2908F907C7F7C767676FFFFFFF3F3F3D0
        C9D0ABABAAECFDFCF0FFFFEFFFFFEFFFFFEFFFFFF8FFFF9C979A171317333133
        4C504C1D171D0000000000000001000804080703070604060503050704070703
        070705070000000000000D080D514B51363736241C24737071F3FFFFEFFFFFEF
        FFFFEFFFFFEEFFFFF2FFFFDEE3E5A2A49FB6B4B4BCBABA9FA49F958C95B0ACB0
        A9A6A9A8A6A8A8A6A8A8A6A8A8A6A8A8A6A8A8A6A8A8A6A8A9A9A9A5A3A5A5A2
        A5BEBCBCB9B8B8B4AEB2D4D8DCF2FFFFEFFFFFEFFFFFEFFFFFEFFFFFEEFFFFF1
        FFFFF8FFFFF6FFFFF9FFFFE1E2E3929692C9C3C9B4BBB4B5BCB5B5BCB5B5BCB5
        B5BCB5B5BCB5B5BCB5B5BBB5C5BDC5ABAEABC7C8C5FBFFFFF6FFFFF6FFFFF2FF
        FFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFF3FFFFCD
        D0CF9F9D9ECFCBCFC9C3C9CAC4CACAC4CACAC4CACAC4CACAC4CACAC4CACAC4CA
        CAC6CAB5B9B6C3BDB5F4FFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFF
        FFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFF3FFFFCBC7CDB1ABB1DBDBDBD1D1D1D1
        D2D1D1D2D1D1D2D1D1D2D1D1D2D1D1D2D1D1D2D1D3D5D3C8CBC8B4B5B6F5FFFF
        EFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFF
        FFEFFFFFF3FFFFC4C9C5C0BFC0EEEBEEE8E3E8E8E4E8E8E4E8E8E4E8E8E4E8E8
        E4E8E8E4E8E8E4E8E9E5E9D9DBD9B7BDB9F4FFFFEFFFFFEFFFFFEFFFFFEFFFFF
        EFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFECFBF9F3EA
        F2F7F9F7F2F0F2F2F1F2F2F1F2F2F1F2F2F1F2F2F1F2F2F1F2F2F0F2F8F9F8EA
        ECE9F5F3F7EEFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFF
        EFFFFFEFFFFFEFFFFFEFFFFFEDFFFFFEFEFEE3E3E2F2F7F2F2F6F2F2F6F2F2F6
        F2F2F6F2F2F6F2F2F6F2F2F6F2F2F6F2F2F7F2E4E2E4EFF1EFEFFFFFEFFFFFEF
        FFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFF
        EEFFFFF2FFFEF3F2F2F6F2F6F6F2F6F6F2F6F6F2F6F6F2F6F6F2F6F6F2F6F6F2
        F6F6F2F6F6F2F6F4F1F2EFFDFBEEFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEF
        FFFF}
      Layout = blGlyphTop
      TabOrder = 5
    end
    object dxButton7: TdxButton
      Left = 691
      Top = 2
      Width = 68
      Height = 50
      About = 'Design eXperience. '#169' 2002 M. Hoffmann'
      Version = '1.0.2e'
      OnClick = dxButton7Click
      Caption = 'Sair'
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000002000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888887788877
        88877888000887788888888788877888778887780EE088877888888877888778
        887788870EE607888778877888778887788877880EE660778887888778887788
        877888770EE666007788878887788877888778880EE666600077800000000000
        008887780EE666660000888888888888807788870EE666660778888888888888
        800077880EE666660778888888888887800000000EE666660778888888888807
        707777770EE666660778888888888800707777770EE666660778888888888806
        007777770EE666660778888888888806607777770EE60066077888888777770E
        660777770EE07066077888887777770EE66077770EE0F066077888800000000E
        EE6607770EE60066077888066666666EEEE660770EE666660778880EEEEEEEEE
        EEEE66070EE666660778880EEFFFFFFFFFFEE6070EE666660778880EEEEEEEEE
        EFEE60770EE66666077888800000000EFEE607770EE66666077888888888880E
        EE6077770EE66666077888888888880EE60777770EE66666077888888888880E
        607777770EE6666607788888888888060077777770EE66660778888888888800
        80777777770EE6660778888888888888807777777770EE660778888888888888
        8077777777770EE6077888888888888880777777777770EE0788888888888888
        8000000000000000088888888888888888888888888888888888}
      Layout = blGlyphTop
      TabOrder = 6
    end
  end
  object DBGrid1: TDBGrid [3]
    Left = 204
    Top = 157
    Width = 555
    Height = 372
    TabStop = False
    BorderStyle = bsNone
    Color = cl3DLight
    DataSource = dts_ag
    FixedColor = clTeal
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWhite
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    OnDrawColumnCell = DBGrid1DrawColumnCell
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'DATA'
        Title.Caption = 'Data'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'HORA'
        Title.Caption = 'Hora'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NOME_MEDICO'
        Title.Caption = 'M'#233'dico'
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DESCRICAO'
        Title.Caption = 'Assunto'
        Width = 400
        Visible = True
      end>
  end
  object TPanel [4]
    Left = 0
    Top = 57
    Width = 200
    Height = 474
    Color = 11189162
    TabOrder = 4
    object Panel1: TPanel
      Left = 29
      Top = 179
      Width = 143
      Height = 28
      BevelInner = bvLowered
      Color = clTeal
      TabOrder = 0
      object Label1: TLabel
        Left = 10
        Top = 7
        Width = 123
        Height = 16
        Caption = 'Anota'#231#245'es do dia'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
    end
    object DBMemo1: TDBMemo
      Left = 14
      Top = 209
      Width = 171
      Height = 258
      TabStop = False
      BevelInner = bvNone
      BevelOuter = bvRaised
      BevelKind = bkFlat
      DataField = 'HISTORICO'
      DataSource = dts_agdia
      TabOrder = 1
      OnExit = DBMemo1Exit
    end
    object MonthCalendar1: TMonthCalendar
      Left = 11
      Top = 8
      Width = 179
      Height = 157
      CalColors.TitleBackColor = clTeal
      CalColors.TrailingTextColor = clGray
      Date = 0.292000555557024
      TabOrder = 2
      OnClick = MonthCalendar1Click
    end
  end
  object Panel4: TPanel [5]
    Left = 203
    Top = 57
    Width = 562
    Height = 98
    Color = 11189162
    TabOrder = 5
    object Label4: TLabel
      Left = 10
      Top = 51
      Width = 38
      Height = 13
      Caption = 'Assunto'
    end
    object Label2: TLabel
      Left = 9
      Top = 8
      Width = 23
      Height = 13
      Caption = 'Data'
    end
    object Label12: TLabel
      Left = 95
      Top = 8
      Width = 23
      Height = 13
      Caption = 'Hora'
    end
    object Label29: TLabel
      Left = 172
      Top = 6
      Width = 35
      Height = 13
      Caption = 'M'#233'dico'
    end
    object SpeedButton1: TSpeedButton
      Left = 527
      Top = 18
      Width = 32
      Height = 28
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C0060000C40E0000C40E00000000000000000000F3FFEEF9FDF9
        FCF9FEFFF9FFFFFAFFFFFEFFFEFEFFFAFAFFF9FAFFFBFEF7FFFEFBFFFCFFFFFE
        FDFFFEF8FAFDF7FCFCFFFBFCFFFDFCFDFFFDFEFFFDFFFFFCFFFFFAFFFBFEFFF3
        FEFAFCFFF6FAFEFAFEFEFFFFFBFFFFFFFBFDFFF2F9FDFCFCFEFFFCFEFFFEFEFE
        FFFCFBFFFCFDFFFEFFFDFBFCFFFDFEFDFEFEFCFCFCFBFBFAFFFCFCFFFEFDFFFF
        FFFFFEFFFAFDFCFAFEF9FCF9F6FFFFFFFDFEFFFBFCFFC4C7D46B7178858591D5
        D8D9FFFFFEFAF9FBFFFFFFFEFDFDFDFAFFFCF8FFFFFEFFFEFDFAFEFFFDF6F9FA
        FFFFFFF8F9FFBFBDD1A9AAAFFEFEFBFFFFF9FFFAFFFFF9FFFDF7FFC8B7E81800
        922C07AD3421769994B0FDFEFAFFFFFFFBFCFEFAFAFFFDFCFFFEFEFAFDFEF2FE
        FCFFFDFDFFFFFFFFC2C2EC5B47B0210486908BA7FCFCF8FFFFF9FFFDFDFFFCFB
        FFFFFFBFB4EC2908B22F00D43212A55A4E8ECFD5D2FFFFFFF9F9F9FCFCFEFEFB
        FFFAFBF9FFFFF6FEFDFFFCF9FFB5ADE93D27A1260D93503AACF3F1FFFFFFFEFF
        FEF8FFFEFAFFFFF5FCFFFBEAECFF6952CF2400C33204C8321F8D787B8FF9FEF4
        FFFFFFFEFDFFFEFAFFFFFFFDF9FBF9FFFFFFA296E03A1FA01E00A57560D4E3E1
        FEFFFFFFFDFCFEFFFFF9FEFBFFFEFDFDFDFFFDF6FDFFFBFBFF7565CB2400BE30
        0ABF2712869499A8F4F6F4FFFEFFFFFEFFFFFFFCFFFFFF8168DB2400A52A08AD
        A39ADEFDFFFFFBFFFEFBFEFEFDFEFEFAFBFBFCFAFFFEFEFEFFFFFFFBFBFEFBFC
        FFF7F3FF4D34C32802B4300EB93D3674ADAEBDFDFDFAFFFFFFFFF7FF9987DC25
        01A53214AC9585E1FFFFFFF9FFF9FCFFFAFDFDFDF9FBFBFAFDFFFCFEFFFCFEFC
        FCFBFAFFFCFFFBFBFFFEFFFFDAD4FF4F34C62600B73821994B4577BDC3C4FFFF
        FF9B86DF370CAF2A06AD9687E4F4F9FFFDFFF6FDFEF8FFFEFFFCFAFAFCFFFFF5
        FDFFFCFDFFFEFFFFFEFEF9FEFDFBFFFFFBFDFFFDFEFFFFF0E4FF6349C72500B2
        30169D3C33877257D62700A23107AEB1A4E2FFFFFFFBFEFFFFFBFFFFFEFFFFFD
        FDFFFFF6FAFEF7FAFEFCFFFFFCFEFCFCFFFEFFFDFCFAFFFEFBFEFEFCFEFEFFFF
        FEFFEDE1FF664CCD2C11AC260DB22604B7341BA69487DCFFFFFFFFFEFFFFFDFB
        FDF8FEFFFBFFFEFBFFFBFDF5FBFEF6FEFEFCFFFFF7FFFCFCFDF8FFFFFFFFFFFE
        FEFFFCFFFFFDFEFFFFFDFFFFFFE7DFFF4B30D52200DB2901D433259699A2B2FF
        FFFFFFFFFFFFFEFAFFFFFDFCF6FDFEF9FFFCFDFDFDFEFCFDFCFEFDFEF3FFFCFD
        FFF9FFFFFFF7FFFFFAFEFBFFFEFEFDFDFFFDFEFEFF7E66DF2201B52902D32C00
        DF2F11AE352E74909597EDECEEFFFEFFFEFAF3FEFDF9FFFAFFFDFCFFF9FBFFFA
        FCFFFAFDF8FEFEFEFFFAFFFFFBFCFFFBFBFFFCFEFDFFFDF8F5FF9889E02300A8
        2F12A67D6ED7967EEC3314AB3A1AA3463880807C9EDBDAE6FFFFFFFDFCFBFCFE
        FCFDFDF9FBFCFAFCFDFEFBFEFFFBFCFEFFFDFFFFF9FFFFFDFEFEFFFFFFFFFF93
        86DD2D0CAA2D04B17664C8F1F5FFFFFFFFC1ADFA3710AD310F9E423187616284
        CDD2E0FFFFFFFDFFFCFEFFEFFFFFF4FFFFFBF6FCFCFBFCFFFFF9FFFFFDFEFEFE
        FDFFFFFF7C67DF2000AC2603B57566C2FBF1FFFFFCFFFBFDFFFEFFFFFDFAFF52
        34B82E08B22F14A1464A7998A2B1ECF4F7FAFFF3FFFFF6FFFEFAF9FDFEF7FBFA
        FEFEFAFDFFFBF1EDFF9483E02400AF2507B05240BEEFEDFFFFFBFFFEF7FCFEFD
        FCFAFEFAFDFFFFEBE0FF8169DB2A0DA235209841397FB0B3C7FFFFFFFEFBFDFF
        FCFFFBFDFEFAFEF5FDFFF9F1F6FC7D6DC82C0AAF2D04BF432EB3C4C1F3FFFFFF
        FEFFFCFEFDFDFEFDFEFBFCFDFAFFFFF8FEFFF3EEFFB19CF71B00974E389ED2D0
        ECFFFCFFFFFAFFFFF7FFFFFEF9FCFFFBFFFFFF846BE32300BA2D00D13D24AABC
        B3EFFFFFFFFDFFFAFFFFF6FFFFF8FFFFFFFFFFFBFEFFF5FCFFFBFEFEFFFFFFFF
        F5EBFFE6E2F8FEFFFFFDFFFFFDFDFFFEFEFEFFFEFDFCFBFCFFFFFF1B00A32E03
        CB2000ADA69BE3FEF9FFFDF9FFFFFFFDFEFEFBFCFEFDFEFBFFFEFEFDFFFFFAFF
        FEFDFFFFFEFFFFFCFFFCFFFEFCFDFFFFFAFCFEFCFCFFFFFAFDFDFFF9FBFDFCFF
        FFFFFF3D21B91F029E917FDEFFFFFFFFFCFFFFFBFFFAF5FAFDFDFFFAFBFFFCF9
        FFFDFDFFFFFFFFFFFAFFFFFDFFFFFFFAFFFCFFFDFAFAFEFCFAFEFFFBF8FCFCF9
        FEFEFEFEFCFDF9FFFAFAFFFFFFFFFFFFFFFFFFFFFDFDFEFBFBFAFFFDFBFFFEFE
        FCFDFEFAFFFFFEFFFAFFFFFAFFFFFDFFFDFFFFFBFFFFFAFFFEFFFCFEFEFCFFFD
        FFFCFEFBFBFEFCFBFEFFFCFEF6FAFCFBFBFEFEF9FCFDFAFFFCFDFFFEFFFEFDFE
        FDFAFFFFFBFAFBF9F9FCFBFAFCFEFFFEFCFFFFFDFFFFFCFDFFF7FDFEFDFDFBFF
        FAFEFDFAFCFCFEFCFFF9FCFBFEFFFEFDFEFCF8FFF3FAFFF5FBFDF8FEFBFFFFFB
        FFFFFCFFFFFFFEFEFFFAFEFFFAFBFDFAFBFCFEFDFAFFFFFCFFFFFDFFFEFFFDFC
        FFEDFAFFF6FAFFFEF6FCFFF6FAFFF9FAFFFEFEFFFFFEFBFEFEFA}
      OnClick = SpeedButton1Click
    end
    object DBEdit1: TDBEdit
      Left = 9
      Top = 24
      Width = 82
      Height = 21
      DataField = 'DATA'
      DataSource = dts_ag
      TabOrder = 0
      OnKeyPress = FormKeyPress
    end
    object DBEdit2: TDBEdit
      Left = 93
      Top = 24
      Width = 73
      Height = 21
      DataField = 'HORA'
      DataSource = dts_ag
      TabOrder = 1
      OnKeyPress = FormKeyPress
    end
    object DBEdit4: TDBEdit
      Left = 9
      Top = 65
      Width = 549
      Height = 21
      DataField = 'DESCRICAO'
      DataSource = dts_ag
      TabOrder = 3
      OnExit = DBEdit4Exit
      OnKeyPress = FormKeyPress
    end
    object dblMedico: TDBLookupComboBox
      Left = 168
      Top = 23
      Width = 359
      Height = 21
      KeyField = 'COD_MEDICO'
      ListField = 'NOME_MEDICO'
      ListSource = dsMedico
      TabOrder = 2
      OnKeyPress = FormKeyPress
    end
  end
  inherited DtSrc: TDataSource
    DataSet = DM.cds_agenda
    Left = 475
    Top = 416
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = True
    Active = True
    Left = 437
    Top = 416
  end
  object dsMedico: TDataSource
    DataSet = DM.cds_medico
    OnStateChange = dsMedicoStateChange
    Left = 512
    Top = 416
  end
  object repAgenda: TVCLReport
    Filename = 'C:\Arquivos de programas\Meta\DocSis\relatorio\agenda.rep'
    Title = 'Agenda di'#225'ria'
    Left = 552
    Top = 416
  end
  object sds_ag: TSQLDataSet
    SQLConnection = DM.scSge
    CommandText = 
      'select ag.* '#13#10'        , cli.NOME_MEDICO '#13#10'from AGENDA ag  '#13#10'inne' +
      'r join MEDICO cli on '#13#10'cli.COD_MEDICO = ag.COD_MEDICO '#13#10'where ((' +
      'ag.COD_MEDICO = :pcod) or '#13#10'(:pcod = 9999999)) and (DATA = :pdat' +
      'e)'
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'pdate'
        ParamType = ptInput
      end>
    Left = 328
    Top = 304
    object sds_agCOD_MEDICO: TIntegerField
      FieldName = 'COD_MEDICO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_agCOD_AGENDA: TIntegerField
      FieldName = 'COD_AGENDA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_agTITULO: TStringField
      FieldName = 'TITULO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_agDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object sds_agDATA: TDateField
      FieldName = 'DATA'
      ProviderFlags = [pfInUpdate]
    end
    object sds_agHORA: TTimeField
      FieldName = 'HORA'
      ProviderFlags = [pfInUpdate]
    end
    object sds_agANOT_DIA: TGraphicField
      FieldName = 'ANOT_DIA'
      ProviderFlags = [pfInUpdate]
      BlobType = ftGraphic
    end
    object sds_agNOME_MEDICO: TStringField
      FieldName = 'NOME_MEDICO'
      ProviderFlags = []
      Size = 60
    end
  end
  object dsp_ag: TDataSetProvider
    DataSet = sds_ag
    Constraints = True
    UpdateMode = upWhereKeyOnly
    Left = 368
    Top = 304
  end
  object cds_ag: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'pdate'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_ag'
    Left = 408
    Top = 304
    object cds_agCOD_MEDICO: TIntegerField
      FieldName = 'COD_MEDICO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_agCOD_AGENDA: TIntegerField
      FieldName = 'COD_AGENDA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cds_agTITULO: TStringField
      FieldName = 'TITULO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_agDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object cds_agDATA: TDateField
      FieldName = 'DATA'
      ProviderFlags = [pfInUpdate]
    end
    object cds_agHORA: TTimeField
      FieldName = 'HORA'
      ProviderFlags = [pfInUpdate]
    end
    object cds_agANOT_DIA: TGraphicField
      FieldName = 'ANOT_DIA'
      ProviderFlags = [pfInUpdate]
      BlobType = ftGraphic
    end
    object cds_agNOME_MEDICO: TStringField
      FieldName = 'NOME_MEDICO'
      ProviderFlags = []
      Size = 60
    end
  end
  object dts_ag: TDataSource
    DataSet = cds_ag
    Left = 448
    Top = 304
  end
  object dts_agdia: TDataSource
    DataSet = cds_agDia
    Left = 448
    Top = 344
  end
  object cds_agDia: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftDate
        Name = 'pdata'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_agDia'
    Left = 408
    Top = 344
    object cds_agDiaDATA: TDateField
      FieldName = 'DATA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_agDiaHISTORICO: TBlobField
      FieldName = 'HISTORICO'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
  end
  object dsp_agDia: TDataSetProvider
    DataSet = sds_agDia
    Constraints = True
    UpdateMode = upWhereKeyOnly
    Left = 368
    Top = 344
  end
  object sds_agDia: TSQLDataSet
    SQLConnection = DM.scSge
    CommandText = 'select * from AGENDA_DO_DIA '#13#10'where DATA = :pdata'
    Params = <
      item
        DataType = ftDate
        Name = 'pdata'
        ParamType = ptInput
      end>
    Left = 328
    Top = 344
    object sds_agDiaDATA: TDateField
      FieldName = 'DATA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_agDiaHISTORICO: TBlobField
      FieldName = 'HISTORICO'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
  end
  object proc_cliente: TSQLClientDataSet
    CommandText = 
      'select CODCLIENTE'#13#10'        , NOMECLIENTE'#13#10' from CLIENTES '#13#10'where' +
      ' NOMECLIENTE like :pnome'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pnome'
        ParamType = ptInput
      end>
    DBConnection = DM.scSge
    Left = 328
    Top = 424
    object proc_clienteCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Required = True
      Visible = False
    end
    object proc_clienteNOMECLIENTE: TStringField
      FieldName = 'NOMECLIENTE'
      Required = True
      Size = 50
    end
  end
  object XPMenu2: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = True
    Active = True
    Left = 296
    Top = 264
  end
  object VCLReport1: TVCLReport
    Filename = 
      'C:\Arquivos de programas\meta\docsis\relatorio\rel_agendamento.r' +
      'ep'
    Title = 'Untitled'
    Left = 496
    Top = 264
  end
end
